﻿Imports System.Windows.Forms

Public Class DlgTotalPage

    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub NUDTotalPage_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles NUDTotalPage.KeyDown
        If e.KeyCode = Keys.Enter Then
            OK_Button_Click(sender, e)

        End If
    End Sub

    Private Sub NUDTotalPage_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NUDTotalPage.MouseClick
        NUDTotalPage.Select(0, NUDTotalPage.Value.ToString.Length)
    End Sub

    Private Sub NUDTotalPage_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NUDTotalPage.ValueChanged

    End Sub
End Class
